home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / midilang / cbass.mpl < prev    next >
Encoding:
Text File  |  1996-02-06  |  1.6 KB  |  79 lines
  1. -1774
  2. #
  3. #
  4. #
  5. #    CBass.mpl
  6. #
  7. #    Automatic Basses for Midi Keyboard
  8. #
  9. #         Author            ID                 Date
  10. #       ------------    -----------          ---------
  11. #       Serge Sibony    100417,2633          09/06/95
  12. #      
  13. #
  14. # This file is a mpl effect definition used by MidiLang
  15. #    MidiLang can be found at the MidiForum, in the
  16. #         Windows sound media library.
  17. # 
  18. # 
  19. #
  20. # This effect adds basses ( C D E C ) based on the bass
  21. # you are playing ( on channel 2 ).
  22. #
  23. # The scale used here is C
  24. #
  25. #
  26.  
  27.  
  28. Label Main
  29.  
  30. # Automatic Bass on C scale 
  31.  
  32. Chan!= 2  This Mpl works only for the Bass ( set your Midi Channel to 2 )
  33.      Goto End  If the Note is not a Bass, forget it
  34.  
  35. InitHarm 1     Initialize the harmony package
  36.  
  37.  
  38. V=Note 9
  39.  
  40. CalcHarm 1          Your Bass is used as tonality
  41.      Note= 0        the C is saved too
  42. CalcHarm 1
  43.      Note= 5        the F too
  44. CalcHarm 1
  45.      Note= 7        the G too
  46. CalcHarm 1
  47.  
  48.  
  49. V= 6 2
  50.  
  51.  
  52. Label Loop          The loop for the 4 basses
  53. V== 6 1
  54.      Goto End
  55. V== 6 5
  56. V= 6 0
  57.  
  58. GetHarm 1 6 7       get the notes : 2 3 4 and 1 of the scale
  59. Note=V 7
  60. Note+=V 9
  61. OutMidi             and send it
  62.  
  63. Time+= 240          next time is half a beat later
  64.  
  65. V+= 6 1             add 1 to v[6]
  66.  
  67. Goto Loop      and go back to Loop
  68.  
  69.  
  70. Label End      End of the mpl effect
  71. End
  72.  
  73.  
  74. Descript  This effect adds basses automatically
  75. Descript  based on the tonality played by you.
  76. Descript  Note that this mpl suppose that your
  77. Descript  Bass Midi Channel is set to 2.
  78. Descript  The scale used is C.
  79.